home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352_install.exe / {app} / scripts / insert_space.pl < prev    next >
Perl Script  |  2004-04-01  |  702b  |  28 lines
  1. #! /usr/bin/perl
  2.  
  3. #  NCâfü[â^é╠âuâìâbâNè╘é╔âXâyü[âXé≡òtë┴é╖éΘâXâNâèâvâg        #
  4. #  ex.G90G40G80 -> G90 G40 G80                               #
  5. #  âuâìâbâNè╘é╔tab,âXâyü[âXé¬éóé¡é┬éáé┴é─éαéPâXâyü[âXé╔é╖éΘ  #
  6.  
  7. $pre_file= $ARGV[0];
  8. $out_file= $ARGV[1];
  9. open(IN,$pre_file);
  10. open(OUT,">$out_file");
  11.  
  12. while(<IN>){
  13.     if(!/^N?[0-9\s]*[\(\%]/){
  14.         $new_line= "";
  15.         while(/([^A-Z\s]*)[\s]*([A-Z]+[^A-Z\s]+)/){
  16.             ($pre_line,$block,$_)= ($`.$1,$2,$');
  17.             $new_line= $new_line.$pre_line." ".$block;
  18.         }
  19.         if(substr($new_line,0,1) eq " "){ $new_line= substr($new_line,1); }
  20.         $_= $new_line.$_;
  21.     }
  22.     elsif(/^(N[0-9]*)[\s]*([\(\%])/){ $_= $1." ".$2.$'; }
  23.     print OUT;
  24. }
  25. close(OUT);
  26. close(IN);
  27.  
  28.